home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / examples / gen_list.ads < prev    next >
Text File  |  1994-05-13  |  715b  |  30 lines
  1. generic 
  2.    type Elmt is private;
  3. package Gen_List is
  4.  
  5.    type Internal;
  6.    type List is access Internal;
  7.  
  8.    type Internal is record
  9.       E : Elmt;
  10.       Next : List;
  11.    end record;
  12.    
  13.  
  14.  
  15.    Nil : constant List := null;
  16.    
  17.    function Append ( E1 : Elmt) return List;
  18.    function Append ( E1, E2 : Elmt) return List;   
  19.    function Append ( E1 : Elmt; L1 : List) return List;
  20.    function Append ( L1 : List; E1 : Elmt) return List;   
  21.    function Append ( L1, L2 : List) return List;
  22.    
  23.    function Element (L : List; Number : Positive := 1) return Elmt;
  24.    function Tail (L : List; Skip : Positive := 1) return List;
  25.    function Length (L : List) return Natural;
  26.    
  27.    Error_List : exception;
  28.  
  29. end Gen_List;
  30.